---
title: "Acala / Karura Daily Pool Stats"
output:
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: scroll
    social: menu
    source_code: embed
---

```{css custom1, echo=FALSE}
.dataTables_scrollBody {
    max-height: 100% !important;
}
```

```{r global, include=FALSE}

library(knitr)
knitr::opts_chunk$set(
  message = FALSE,
  warning = FALSE,
  comment = "#>"
)

library(kableExtra)
library(formattable)
library(lubridate)
library(flexdashboard)
library(dygraphs)
library(DT)
library(subscanr)
library(ghql)
x <- GraphqlClient$new()

# Helper function to concat
`%+%` <- function(a, b) paste0(a, b)

# library(reticulate)

```

```{r tokens, cache = TRUE, include=FALSE}


# k_tdd <- getTokenDailyData_acala_dex("karura")
# k_tdd[, tvl := tvl / 1e3]
# k_tdd[, timestamp := as.Date(timestamp)]
# 
# a_tdd <- getTokenDailyData_acala_dex("acala")
# a_tdd[, tvl := tvl / 1e3]
# a_tdd[, timestamp := as.Date(timestamp)]

maintxt <- "Total Value Locked for "

k_dp_dex <- getDailyPool_acala_dex("karura")
k_dp_dex[, tvlUSD := totalTVL / 1e3]
k_dp_dex[, date := as.Date(timestamp)]
# k_dp <- getPoolDayData_acala("karura")
# k_dp[, tvlUSD := tvlUSD / 1e3]
# k_dp[, token0Price := token0Close]
# k_dp[, date := as.Date(date)]
# k_both <- merge(k_dp,
#                 k_dp_dex,
#                 by = c("poolId","date"),
#                 all = TRUE,
#                 suffixes = c("","_DEX"))
k_pools <- sort(unique(k_dp_dex$poolId))


a_dp_dex <- getDailyPool_acala_dex("acala")
a_dp_dex[, tvlUSD := totalTVL / 1e3]
a_dp_dex[, date := as.Date(timestamp)]

a_dp_dex[, test := token1Amount / token0Amount]
a_dp_dex[, .(token0Id, token1Id, token0Price, token1Price, test)]

# a_dp <- getPoolDayData_acala("acala")
# a_dp[, tvlUSD := tvlUSD / 1e3]
# a_dp[, token0Price := token0Close]
# a_dp[, date := as.Date(date)]
# a_both <- merge(a_dp,
#                 a_dp_dex,
#                 by = c("poolId","date"),
#                 all = TRUE,
#                 suffixes = c("","_DEX"))
a_pools <- sort(unique(a_dp_dex$poolId))

#    "token0Amount": "2461670866930004326",
#           "token1Amount": "1872076768294621",
#           "tvlUSD": "4923321763900343588776521",
#           "token0Close": "773400515"
#    
#    (2461670866930004326 * 773400515) / 1e18
#    15263590546
#    
# x  "exchange0": "1478312353408",
#           "exchange1": "676447029407"
# 1/.67

   
```

# Acala Pools {.tabset}


Row
----

```{r}
head(a_dp_dex)

pool <- a_pools[1]
dygraph(a_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)

dygraph(a_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)

dygraph(a_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)

dygraph(a_dp_dex[poolId == pool, .(date, token0Price)], 
        main = "Token 0 Price")  %>% 
  dySeries("token0Price", stepPlot = TRUE, fill = TRUE)

```

Row
----

```{r}

pool <- a_pools[2]
dygraph(a_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)

dygraph(a_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)

dygraph(a_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)

dygraph(a_dp_dex[poolId == pool, .(date, token0Price)], 
        main = "Token 0 Price")  %>% 
  dySeries("token0Price", stepPlot = TRUE, fill = TRUE)

```

Row
----

```{r}

pool <- a_pools[3]
dygraph(a_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)

dygraph(a_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)

dygraph(a_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)

dygraph(a_dp_dex[poolId == pool, .(date, token0Price)], 
        main = "Token 0 Price")  %>% 
  dySeries("token0Price", stepPlot = TRUE, fill = TRUE)

```

Row
----

```{r}

pool <- a_pools[4]
dygraph(a_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)

dygraph(a_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)

dygraph(a_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)

dygraph(a_dp_dex[poolId == pool, .(date, token0Price)], 
        main = "Token 0 Price")  %>% 
  dySeries("token0Price", stepPlot = TRUE, fill = TRUE)

```


# Karura Pools {.tabset}

Row
----

```{r}

pool <- k_pools[1]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)

```


Row
----

```{r}

pool <- k_pools[2]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)

```

Row
----

```{r}

pool <- k_pools[3]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)

```

Row
----

```{r}

pool <- k_pools[4]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)

```

Row
----

```{r}

pool <- k_pools[5]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)

```

Row
----

```{r}

pool <- k_pools[6]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)

```

Row
----

```{r}

pool <- k_pools[7]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)

```

Row
----

```{r}

pool <- k_pools[8]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)

```

Row
----

```{r}

pool <- k_pools[9]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)

```

Row
----

```{r}

pool <- k_pools[10]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)

```

Row
----

```{r}

pool <- k_pools[11]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)

```

Row
----

```{r}

pool <- k_pools[12]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)

```

Row
----

```{r}

pool <- k_pools[13]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)

```

Row
----

```{r}

pool <- k_pools[14]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)

```

Row
----

```{r}

pool <- k_pools[15]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)

```

Row
----

```{r}

pool <- k_pools[16]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)

```

Row
----

```{r}

pool <- k_pools[17]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)

```

Row
----

```{r}

pool <- k_pools[18]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)], 
        main = maintxt %+% pool,
        ylab = "TVL in thousands ($)")  %>% 
  dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)], 
        main = "Token 0 Amount")  %>% 
  dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)

dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)], 
        main = "Token 1 Amount")  %>% 
  dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)

```